home *** CD-ROM | disk | FTP | other *** search
/ Indy 500 - Celebrate the Spectacle / Indy 500 - Celebrate the Spectacle.iso / pc / assets / fullScreenVideo.dxr / 00003_exitFrameScript.ls next >
Encoding:
Text File  |  2004-12-08  |  1.0 KB  |  38 lines
  1. global gMIAW_VideoSprite, gWindowName, gVideoName, gFrameStep
  2.  
  3. on exitFrame me
  4.   if gFrameStep < 6 then
  5.     if gFrameStep = 5 then
  6.       gMIAW_VideoSprite.play()
  7.     end if
  8.     gFrameStep = gFrameStep + 1
  9.   end if
  10.   if gMIAW_VideoSprite.movieTime >= gMIAW_VideoSprite.duration then
  11.     cleanUpWindow()
  12.   end if
  13.   go(the frame)
  14. end
  15.  
  16. on beginSprite me
  17.   global gMaxVolLevel
  18.   gFrameStep = 0
  19.   tmpMember = member(36)
  20.   tmpMember.name = gVideoName
  21.   tmpMember.fileName = the moviePath & gVideoName & ".mpg"
  22.   set the keyDownScript to "theKeyDown"
  23.   if (the environment).runMode = "Projector" then
  24.     the alertHook = script("Alert")
  25.     set the exitLock to 1
  26.   end if
  27.   gMIAW_VideoSprite = sprite(11)
  28.   gMIAW_VideoSprite.puppet = 1
  29.   gMIAW_VideoSprite.member = tmpMember
  30.   gMIAW_StageWidth = 640
  31.   gMIAW_StageHeight = 480
  32.   gMIAW_StageCenter = point(gMIAW_StageWidth / 2, gMIAW_StageHeight / 2)
  33.   gMIAW_VideoSprite.width = 640
  34.   gMIAW_VideoSprite.height = 480
  35.   gMIAW_VideoSprite.loc = point(0, 0)
  36.   gMIAW_VideoSprite.volume = gMaxVolLevel
  37. end
  38.